Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue43/tooltips/Hints3U.dfm/Hints3U.txt

Text File | 1999-01-25 | 3.2 KB | 147 lines

object Form1: TForm1
  Left = 192
  Top = 106
  BorderStyle = bsSingle
  Caption = 'Hints Example 2'
  ClientHeight = 313
  ClientWidth = 617
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  TextHeight = 13
  object HSG: THintStringGrid
    Left = 8
    Top = 8
    Width = 185
    Height = 297
    ColCount = 7
    DefaultColWidth = 25
    DefaultRowHeight = 18
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing]
    RowCount = 16
    TabOrder = 0
  end
  object HintDBGrid1: THintDBGrid
    Left = 200
    Top = 8
    Width = 217
    Height = 257
    Hint = '02/02/95 01:05:03'
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object HintListBox1: THintListBox
    Left = 424
    Top = 8
    Width = 185
    Height = 297
    ItemHeight = 13
    TabOrder = 2
  end
  object chkTitles: TCheckBox
    Left = 272
    Top = 272
    Width = 97
    Height = 17
    Caption = '&Titles'
    State = cbChecked
    TabOrder = 3
    OnClick = chkTitlesClick
  end
  object chkIndicator: TCheckBox
    Left = 272
    Top = 296
    Width = 97
    Height = 17
    Caption = '&Indicator'
    State = cbChecked
    TabOrder = 4
    OnClick = chkIndicatorClick
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 256
    Top = 80
    object Table1CustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object Table1Company: TStringField
      DisplayWidth = 18
      FieldName = 'Company'
      Size = 30
    end
    object Table1Addr1: TStringField
      DisplayWidth = 14
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      DisplayWidth = 12
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1City: TStringField
      DisplayWidth = 9
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      DisplayWidth = 6
      FieldName = 'State'
    end
    object Table1Zip: TStringField
      DisplayWidth = 11
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      DisplayWidth = 17
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      DisplayWidth = 13
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object Table1Contact: TStringField
      DisplayWidth = 17
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      DisplayWidth = 21
      FieldName = 'LastInvoiceDate'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 288
    Top = 176
  end
end